home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / turtle-demo 5 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  408b  |  21 lines
  1. 1 REM TURTLE-DEMO: 'SCHNEE'
  2. 2 REM N. HEUSLER 11.91
  3. 3 :
  4. 10 SYS49152
  5. 20 INPUT"ITERATIONSTIEFE   3[157][157][157]";IT:IFIT>4THEN20
  6. 30 !GRAPHICS:!INIT:LE=160
  7. 40 !PEN0:!MOVE(320-LE)/2,150:!ANGLE330:!PEN1
  8. 50 GOSUB100:!TURNR120:GOSUB100:!TURNR120:GOSUB100
  9. 60 POKE198,.:WAIT198,1:POKE198,.:END
  10. 100 IE=IE+1:IFIE>ITTHEN:!WALKLE:GOTO200
  11. 110 !PUSHLE:LE=LE/3
  12. 120 GOSUB100
  13. 130 !TURNL60
  14. 140 GOSUB100
  15. 150 !TURNR120
  16. 160 GOSUB100
  17. 170 !TURNL60
  18. 180 GOSUB100
  19. 190 !PULLLE
  20. 200 IE=IE-1:RETURN
  21.